perm filename TEST1.SAI[1,BGB]1 blob
sn#066786 filedate 1974-02-14 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 BEGIN "TEST1"
C00004 ENDMK
C⊗;
BEGIN "TEST1"
DEFINE α="COMMENT";DEFINE π="3.1415927";
REQUIRE "GEOMES.HDR[GEM,HE]" SOURCE_FILE;
INTEGER B1,B2,F,E,V,V0,T;
INTEGER WORLD,WINDOW,CAMERA;
GEONIT;
B1 ← MKCUBE(4.0,1.0,2.0);
TRANSLATE(B1,0,0,4);
GEOMED;
WHILE TRUE DO
BEGIN
ROTATE(B1,π/32,π/32,0);
SHOW1(0,1);
END;
END "TEST1"; BGB 19 MARCH 1973.